home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / a-g / ami2d / rexx / pstress.rexx < prev    next >
OS/2 REXX Batch file  |  1978-11-24  |  624b  |  30 lines
  1. /* Ami2d init script for plane stress problems */
  2.  
  3. address ami2d
  4.  
  5. 'plane'
  6. 'problem(struct)'
  7. 'set plane stress'
  8.  
  9. 'set epsx=x1'
  10. 'set epsy=y2'
  11. 'set epsz=-0.5*c5*(x1+y2)/c4'
  12. 'set gamxy=x2+y1'
  13. 'set gam12=(0.25*(epsx-epsy)^2+0.25*gamxy^2)^0.5'
  14. 'set eps1=0.5*(epsx+epsy)+gam12'
  15. 'set eps2=0.5*(epsx+epsy)-gam12'
  16. 'set eps3=epsz'
  17.  
  18. 'set sigx=c1*x1+c5*y2+c10*gamxy-f1'
  19. 'set sigy=c5*x1+c2*y2+c9*gamxy-f2'
  20. 'set sigz=0.0'
  21. 'set tauxy=c10*x1+c9*y2+c4*gamxy'
  22. 'set tau12=(0.25*(sigx-sigy)^2+tauxy^2)^0.5'
  23. 'set sig1=0.5*(sigx+sigy)+tau12'
  24. 'set sig2=0.5*(sigx+sigy)-tau12'
  25. 'set sig3=0.0'
  26. 'set sigh=(sigx+sigy+sigz)/3'
  27. 'set sigd=sig1-sigh'
  28.  
  29. exit
  30.